home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / data collisions (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  1KB  |  79 lines
  1. 10 POKE 51,0: POKE 52,48: POKE 55,0: POKE 56,48: CLR
  2. 20 V=53248: PT=2040: CH=14336: SD=12288
  3. 30 GOSUB 9000: REM CHARACTERS
  4. 40 GOSUB 10000: REM SPRITES
  5. 50 POKEV+32,2: POKE V+33,1: PRINT"[147]";
  6. 60 POKEV+34,2: POKE V+35,3
  7. 90 POKEV+22,PEEK(V+22)OR16
  8. 100 POKE V+24,PEEK(V+24)AND240OR14
  9. 110 PRINT"";
  10. 120 FOR I=1 TO 5
  11. 130 :PRINTTAB(25)"[152]B"
  12. 140 NEXT I
  13. 150 PRINT"";
  14. 160 FOR I=1 TO 5
  15. 170 :PRINTTAB(25)"[129]A"
  16. 180 NEXT I
  17. 190 PRINT"";
  18. 200 FOR I=1 TO 5
  19. 210 :PRINTTAB(25)"[129]@"
  20. 220 NEXT I
  21. 230 POKE V+21,7
  22. 240 GOSUB 1000
  23. 250 POKE V+31,0
  24. 500 FOR S=0 TO 2
  25. 510 ::X=30: DX=1
  26. 520 ::X=X+DX
  27. 530 ::POKE V+2*S,X
  28. 540 ::IF PEEK(V+31) THEN DX=-1: GOTO 520
  29. 550 ::IF(X>30) AND (X<254) GOTO 520
  30. 560 ::GOSUB 1000
  31. 570 NEXT S
  32. 575 IF F GOTO 900
  33. 580 FOR I=1 TO 30
  34. 590 :AD=INT(RND(1)*1000)
  35. 600 :POKE1024+AD,0
  36. 610 :POKE55296+AD,8
  37. 620 NEXT I
  38. 630 F=-1: POKE V+4,30: GOTO 250
  39. 900 POKE V+24,PEEK(V+24)AND240OR4
  40. 910 POKE V+22,PEEK(V+22)AND239
  41. 920 POKE V+21,0
  42. 999 STOP
  43. 1000 GETT$:IFT$=""THEN1000
  44. 1010 RETURN
  45. 8999 END
  46. 9000 REM CONSTRUCT MC CHARS
  47. 9010 FOR I=0 TO 7
  48. 9020 :POKE CH+I,85: REM PATTERN 01
  49. 9030 :POKE CH+8+I,170: REM------10
  50. 9040 :POKE CH+16+I,255: REM-----11
  51. 9050 :POKE CH+256+I,0
  52. 9060 NEXT I
  53. 9070 RETURN
  54. 10000 REM CONSTRUCT SPRITE
  55. 10010 FOR I=0 TO 62
  56. 10020 :READ Z
  57. 10030 :POKE SD+I,Z
  58. 10040 NEXT I
  59. 10050 POKEV+16,0
  60. 10060 POKEV+23,7: POKE V+29,7
  61. 10070 FOR I=0 TO 2
  62. 10075 :POKE V+39+I,0
  63. 10080 :POKE PT+I,192
  64. 10090 :POKE V+2*I,30
  65. 10100 :POKE V+2*I+1,80+56*I
  66. 10110 NEXT I
  67. 10120 RETURN
  68. 11000 DATA 7,0,0, 31,192,0
  69. 11010 DATA 63,224,0, 127,240,0
  70. 11020 DATA 127,240,0, 255,248,0
  71. 11030 DATA 255,248,0, 255,248,0
  72. 11040 DATA 255,248,0, 127,240,0
  73. 11050 DATA 127,240,0, 63,224,0
  74. 11060 DATA 31,192,0, 7,0,0
  75. 11070 DATA 0,0,0, 0,0,0
  76. 11080 DATA 0,0,0, 0,0,0
  77. 11090 DATA 0,0,0, 0,0,0
  78. 11100 DATA 0,0,0
  79.